program Mosteiro;

uses
  Vcl.Forms,
  System.SysUtils,
  untPrincipal in 'untPrincipal.pas' {frmPrincipal},
  untDTMLooKup in 'untDTMLooKup.pas' {dtmLookUp: TDataModule},
  untDTMPrincipal in 'untDTMPrincipal.pas' {dtmPrincipal: TDataModule},
  untLogin in 'untLogin.pas' {frmLogin},
  ClassLogin in 'Classes\ClassLogin.pas',
  ClassEmpresa in 'Classes\ClassEmpresa.pas',
  ClassUsuario in 'Classes\ClassUsuario.pas',
  ClassBase in 'Classes\ClassBase.pas',
  VarGlobais in 'VarGlobais.pas',
  FuncoesGenericas in 'FuncoesGenericas.pas',
  ClassExcept in 'Classes\ClassExcept.pas',
  untExcecao in 'FormularioException\untExcecao.pas' {frmExcecao},
  untAbsConsulta in 'FormsAbstract\untAbsConsulta.pas' {frmAbsConsulta},
  Vcl.Themes,
  Vcl.Styles,
  untCadUsuarios in 'Formularios\Usuarios\untCadUsuarios.pas' {frmCadUsuarios},
  untCadRegionais in 'Formularios\Regionais\untCadRegionais.pas' {frmCadRegionais},
  untCadColaboradores in 'Formularios\Colaboradores\untCadColaboradores.pas' {frmCadColaboradores},
  untCadBancos in 'Formularios\Bancos\untCadBancos.pas' {frmCadBancos},
  untAbsEdicao in 'FormsAbstract\untAbsEdicao.pas' {frmAbsEdicao},
  untCadUsuariosEdicao in 'Formularios\Usuarios\untCadUsuariosEdicao.pas' {frmCadUsuariosEdicao},
  untCadColaboradoresEdicao in 'Formularios\Colaboradores\untCadColaboradoresEdicao.pas' {frmCadColaboradoresEdicao},
  untCadRegionaisEdicao in 'Formularios\Regionais\untCadRegionaisEdicao.pas' {frmCadRegionaisEdicao},
  classBuscaCEP in 'Classes\classBuscaCEP.pas',
  untCadBancosEdicao in 'Formularios\Bancos\untCadBancosEdicao.pas' {frmCadBancosEdicao},
  untCadAgenda in 'Formularios\Agenda\untCadAgenda.pas' {frmCadAgenda},
  untConfBoleto in 'Formularios\Bancos\untConfBoleto.pas' {frmConfBoleto},
  untGeraBoletos in 'Formularios\Boletos\untGeraBoletos.pas' {frmGeraBoletos},
  untCadUsuariosAcesso in 'Formularios\Usuarios\untCadUsuariosAcesso.pas' {frmCadUsuariosAcesso},
  untFichaFinanceira in 'Formularios\Financeiro\untFichaFinanceira.pas' {frmFichaFinanceira},
  untFichaFinanceiraEdicao in 'Formularios\Financeiro\untFichaFinanceiraEdicao.pas' {frmFichaFinanceiraEdicao},
  untAbsRel in 'FormsAbstract\untAbsRel.pas' {frmAbsRel},
  untAbsRelatorios in 'FormsAbstract\untAbsRelatorios.pas' {frmAbsRelatorios},
  untRelPessoas in 'Formularios\Relatorios\untRelPessoas.pas' {frmRelPessoas},
  untRelPessoasDesigner in 'Formularios\Relatorios\untRelPessoasDesigner.pas' {frmRelPessoasDesigner};

{$R *.res}

begin
  DecimalSeparator := '.';
  ShortDateFormat  := 'MM/DD/YYYY';
  CurrencyString   := '';
  Application.Initialize();
  Application.MainFormOnTaskbar := True;
  TStyleManager.TrySetStyle('Smokey Quartz Kamri');
  Application.CreateForm(TdtmLookUp, dtmLookUp);
  Application.CreateForm(TdtmPrincipal, dtmPrincipal);
  Application.CreateForm(TfrmLogin, frmLogin);
  Application.CreateForm(TfrmExcecao, frmExcecao);
  FrmLogin.ShowModal();


  if frmLogin.ModalResult = 1 then
  begin
    FrmLogin.Free();
    Application.CreateForm(TFrmPrincipal,frmPrincipal);
    FrmPrincipal.Show();
    Application.Run();
  end else
    Application.Terminate();


end.
